home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.21
/
rogerdattools
/
rconcat.p
< prev
next >
Wrap
Text File
|
1995-04-23
|
755b
|
43 lines
PROGRAM Rconcat; { 30.11.93 by System M Røgersøft}
FROM Rogertools USES rrequest;
VAR f1,f2:TEXT;
datei,pfad:STRING;
s,dat1,dat2:STRING[80];
BEGIN
pfad:=':';
datei:='';
IF (foundarp OR foundasl) THEN rrequest('Datei 1:',datei,pfad)
ELSE exit;
dat1:=pfad+datei;
reset(f1,dat1);
IF IORESULT <> 0 THEN exit;
datei:='';
rrequest('Datei 2:',datei,pfad);
dat2:=pfad+datei;
reset(f2,dat2);
close(f1);
IF IORESULT <> 0 THEN exit;
reset(f1,dat1); { nach Onkel Wirth geht das glaub ich normalement
nischt ! }
seek(f1,Filesize(f1));
readln(f2,s);
readln(f2,s);
readln(f2,s);
readln(f2,s);
WHILE NOT eof(f2) DO
BEGIN
readln(f2,s);
writeln(f1,s);
END;
close(f1);
close(f2);
END.